98 REM --- PLAYROUTINE LADEN
99 :
100 IFA=0THENA=1:GOSUB180:LOAD"PLAYROUTINE",8,1
101 :
108 REM --- TASTATURABFRAGE (0-9)
109 :
110 IFA=1THENA=2:INPUT"WELCHER SOUND (0-9) ";A$:IFA$<"0"ORA$>"9"THENA=1:GOTO110
111 :
118 REM --- MUSIK ABSCHALTEN UND LADEN
119 :
120 IFA=2THENA=3:SYS64789:POKE54296,0:A$="SONG FOR YOU."+A$:LOADA$,8,1
121 :
128 REM --- MUSIK IM IRQ STARTEN
129 :
130 IFA=3THENA=4:SYS52992:END
169 :
170 REM --- IRQ-ROUTINE IN DATA-ZEILEN
171 :
180 FORI=0TO28:READG:S=S+G:POKE52992+I,G:NEXT:IFS<>2790THENPRINT"ERROR":END
190 RETURN
200 DATA120,169,23,141,20,3,169,207,141
210 DATA21,3,169,75,141,5,220,169,0,32
220 DATA3,192,88,96,32,0,192,76,49,234